home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swags_z.zip / TSR.SWG / 0001_CLKTSR.PAS.pas next >
Pascal/Delphi Source File  |  1993-05-28  |  2KB  |  48 lines
  1. {$A+,B-,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-}
  2. {$M 1024,0,0}
  3. Uses Dos,
  4.      clock;  { My clock ISR Unit in next message. }
  5. Const
  6.   IRet  : Word = $cf;
  7.   IDStr : String[13]='TeeCee''s Clock';
  8. Var
  9.   p : Pointer;
  10. begin
  11.   GetIntVec($66,p);  { Int 66h is reserved For user defined interrupts }
  12.   inc(LongInt(p),2);
  13.   if String(p^) = IDStr then begin
  14.     Writeln('TeeCee''s clock is already installed - you must be blind!');
  15.     halt;
  16.   end
  17.   else begin
  18.     Writeln('TeeCee''s clock is now installed For demo purposes only');
  19.     SetIntVec($66,@IRet);   { IRet is obviously not an interrupt!      }
  20.     { What we are actually doing is storing a Pointer to the IDStr     }
  21.     { in the vector table - much like the way the Video font addresses }
  22.     { are stored.                                                      }
  23.     SwapVectors;
  24.     Keep(0);
  25.   end;
  26. end.
  27.  
  28. (See the next message For the Unit Clock. )
  29.  
  30. Now that is definintely For demonstration purposes only!  It will work but has 
  31. several serious shortcomings!
  32.  
  33. Firstly, it hooks the user defined interrupt $66 to allow any subsequent 
  34. executions to determine if the Program is already installed.  It does this 
  35. without making any checks as to whether or not something else already "owns" 
  36. this vector. Not very smart!
  37.  
  38. Secondly, it provides no means to uninstall itself.  Mmmmm...  :-(
  39.  
  40. Thirdly, Graphics mode will cause problems.  Again - not terribly smart!
  41.  
  42. Finally, TSRs are not For the faint-of-heart or beginner. They are an 
  43. extraordinarily complex and difficult part of Dos Programming and if you are 
  44. serious about getting into TSRs then get as many good books as you can find 
  45. that authoritively discuss the subject.  Buying a good commercial toolbox, such 
  46. as Turbo Power's "TSRs Made Easy" is another smart move, as studying how the 
  47. masters do it is one of the best ways to learn.
  48.